• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 'Multy check boxes select one in a row [works like a option buttons]

'Multy check boxes select one in a row [works like a option buttons]

'Multy check boxes select one in a row [works like a option buttons]

API Declarations


Private selectedItem as integer



Rate 'Multy check boxes select one in a row [works like a option buttons]

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim i As Integer
        If ind = selectedItem Then
            Exit Sub
        Else
            selectedItem = ind
            For i = startid To endid
                If i <> selectedItem Then
                    chktest(i).Value = 0
                End If
            Next
            chktest(selectedItem).Value = 1
        End If
End Sub

Private Sub chktest_Click(Index As Integer)
 Call fuChkClear(0, 4, Index)
end sub